#e
#Title[euobgEUE^X-Nomal-v]
#Text[G@Lu~AEXJ[bgv]
#ScriptVersion[2]
#PlayLevel[Easy]
#Player[FREE]

script_enemy_main {
 let img = "script\img\ExRumia.png";
 let name = "euobgEUE^X-Nomal-v";
 let pet = 0;
 let angle = 0;

 @Initialize {
  CutIn(KOUMA, name, "", 0, 0, 0, 0);
  SetX(GetCenterX);
  SetY(GetCenterY);
  SetScore(1000000);
  SetLife(5000);

  LoadGraphic(img);
  SetTexture(img);
  SetGraphicRect(0, 0, 64, 64);
 }

 @MainLoop {
  SetCollisionA(GetX, GetY, 24);
  SetCollisionB(GetX, GetY, 24);

  pet += 1;
  if(pet == 90) {
   loop(9) {
    CreateShot01(GetCenterX, GetClipMinY, 1, angle, RED03, 0);
    angle += 22.5;
    if(angle == 202.5) {
     angle = 0;
    }
   }
  }
  if(pet == 180) {
   loop(9) {
    CreateShot01(GetClipMinX, GetCenterY, 1, angle - 90, RED03, 0);
    angle += 22.5;
    if(angle == 202.5) {
     angle = 0;
    }
   }
  }
  if(pet == 270) {
   loop(9) {
    CreateShot01(GetCenterX, GetClipMaxY, 1, angle - 180, RED03, 0);
    angle += 22.5;
    if(angle == 202.5) {
     angle = 0;
    }
   }
  }
  if(pet == 360) {
   loop(9) {
    CreateShot01(GetClipMaxX, GetCenterY, 1, angle + 90, RED03, 0);
    angle += 22.5;
    if(angle == 202.5) {
     angle = 0;
    }
    pet = 0;
   }
  }
 }

 @DrawLoop {
  DrawGraphic(GetX, GetY);
 }

 @Finalize {
  DeleteGraphic(img);
 }

 function nway(x, y, speed, dir, way, span, color) {
  let mid = dir - (way - 1) / 2 * span;
  loop(way) {
   CreateShot01(x, y, speed, mid, color, 0);
   mid += span;
  }
 }

}